home *** CD-ROM | disk | FTP | other *** search
/ HTBasic 9.3 / HTBasic 9.3.iso / LgcyPlus / disk2 / XYTRACE._ / XYTRACE.
Encoding:
Text File  |  2001-03-02  |  1.3 KB  |  38 lines
  1. 10    ! *******************************************************
  2. 20    ! Example: XY GRAPH Shared Traces
  3. 30    !
  4. 40    ! This program shows one way to generate several
  5. 50    ! traces using a single set of data.
  6. 60    !
  7. 70    !                     NOTE
  8. 80    !
  9. 90    ! To exit this program, type stop or press CONTINUE.
  10. 100   !
  11. 110   ! *******************************************************
  12. 120   !
  13. 130   ASSIGN @Graph TO WIDGET "XY GRAPH"
  14. 140   CONTROL @Graph;SET ("TITLE":" Example: XY GRAPH Shared Traces")
  15. 150   CONTROL @Graph;SET ("SHARED X":1,"TRACE COUNT":20)
  16. 160   CONTROL @Graph;SET ("CURRENT TRACE":0,"POINT CAPACITY":101,"TRACE VISIBLE":0)
  17. 170   CONTROL @Graph;SET ("CURRENT AXIS":"X","AUTOSCALE":1)
  18. 180   CONTROL @Graph;SET ("CURRENT AXIS":"Y","AUTOSCALE":1)
  19. 190   !
  20. 200   INTEGER I,J,X(0:100)
  21. 210   FOR I=0 TO 100
  22. 220     X(I)=I*2
  23. 230   NEXT I
  24. 240   CONTROL @Graph;SET ("CURRENT TRACE":1,"X DATA":X(*))
  25. 250   DIM Y(0:100)
  26. 260   FOR I=1 TO 20
  27. 270     FOR J=0 TO 100
  28. 280       Y(J)=I+SIN((I+I/4)*J*PI/50)
  29. 290     NEXT J
  30. 300     CONTROL @Graph;SET ("CURRENT TRACE":I,"Y DATA":Y(*))
  31. 310   NEXT I
  32. 320   CONTROL @Graph;SET ("CURRENT TRACE":0,"TRACE VISIBLE":1)
  33. 330   PAUSE
  34. 340   !
  35. 350 Finis: !
  36. 360   ASSIGN @Graph TO *          ! Delete XY GRAPH widget
  37. 370   END
  38.